/* wlgeteff.p - WIP LOT TRACE GET EFFECTIVE DATE FROM SHARED VARIABLE         */
/* Copyright 1986-2011 QAD Inc., Santa Barbara, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Id:: wlgeteff.p 2366 2010-11-10 01:47:19Z zzh                          $: */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 9.1               LAST MODIFIED: 10/13/98   BY: B. Gates *N002*  */
/* REVISION: 9.1               LAST MODIFIED: 08/12/00   BY: *N0KC* myb       */


/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */

         define output parameter o_effdate as date no-undo.

         define shared variable eff_date as date.

         o_effdate = eff_date.
